home *** CD-ROM | disk | FTP | other *** search
/ United Public Domain Gold 2 / United Public Domain Gold 2.iso / utilities / pu168a.dms / pu168a.adf / Scripts / motball.art < prev    next >
Text File  |  1991-08-30  |  1KB  |  49 lines
  1. ? "===================================================================\n",
  2.   " One bump and texture mapped sphere.  The bump and texture maps are\n",
  3.   " the same picture.\n",
  4.   "===================================================================\n";
  5.  
  6.  WHITE  : color( RGB, [1.0, 1.0, 1.0] );
  7.  BLUE   : color( RGB, [0.0, 0.0, 0.8] );
  8.  
  9.  DULL   : surface( PHONG, 0.8, 0.9, 0.0,  0.0, 0.0, 0.0, 0.0, 0.0, 0 );
  10.  SHINY  : surface( PHONG, 0.3, 0.8, 0.8, 10.0, 0.0, 0.0, 0.0, 0.0, 0 );
  11.  
  12.  vector   BALLPOS = [0,0,0];
  13.  
  14.  tmap1 : texturemap( "mottledorange.ilbm" );
  15.  bmap1 : bumpmap( "mottledorange.ilbm" );
  16.  
  17.  
  18. !-------------------------------------------------------------------
  19. !!
  20. !! Our texture and bump mapped sphere...
  21. !!
  22. !-------------------------------------------------------------------
  23.  
  24.  tm1 : texture( sphere, tmap1, BALLPOS-[0,0,400],
  25.   [0,0,1], [-1,0,0], 2,2, SMOOTH3|REPEAT );
  26.  
  27.  bm1 : bump( sphere, bmap1, shiny, 6.0, BALLPOS-[0,0,400],
  28.   [0,0,1], [-1,0,0], 2,2, SMOOTH3|REPEAT|NEGATIVE );
  29.  
  30.  sphere( ballpos, 400, tm1, bm1 );
  31.  
  32.  
  33. !-------------------------------------------------------------------
  34. !!
  35. !! Light sources, background, camera...
  36. !!
  37. !-------------------------------------------------------------------
  38.  star( [-3000, -8000, 6000], [0.8, 0.8, 0.8 ], 1, NOSHADOWS  );
  39.  ambient( [0,0,0], [0.2,0.2,0.2], [0,0,1], 0.0, 0.0 );
  40.  
  41.  background( PLAIN, [0, 0, 0.1] );
  42.  
  43.  camera'POS     = [0,-2000, 0];
  44.  camera'TARGET  = [0,0,0];
  45.  
  46.  render;
  47.  
  48. END
  49.